_loco = _this select 0;
_unit = _this select 1;
	//hint str(typeOf _loco);
	if (typeOf _loco ==  "Land_wagon_box") then {
		_unit attachTo [_loco,[0,0,-0.77]];
		_unit setDir (getDir _unit ) -90;
	};
	if (typeOf _loco == "Land_wagon_flat") then {
		_unit attachTo [_loco,[0,0,0.3]];
	};
	player setVariable ["TES_Direction",getDir player,true];
	player setVariable ["TES_On_Train",true,true];
	hint "\nPress the 'Insert' key to get off the vehicle\n\n";
	onTop_KEY_pressed = compile preprocessfile "train\onTop_KEY_pressed.sqf";
	onTop_MOUSE_move = compile preprocessfile "train\onTop_mouse_move.sqf";
	//MouseMoving 
	(findDisplay 46) displaySetEventHandler ["keyDown", "_this call onTop_KEY_pressed"];
	(findDisplay 46) displaySetEventHandler ["MouseMoving", "_this call onTop_MOUSE_move"];
	